IFCR (NOT DECLARATION(DDHEAD)) OR (NOT DECLARATION(DCHEAD)) THENC
COMMENT HERE ARE THE EXTERNAL DECLARATIONS FOR THE DATA BASE;
EXTERNAL LIST DPROLST;
simple external PROCEDURE DDELET(ITEMVAR ITMVR);
simple external PROCEDURE DINIT;
simple external PROCEDURE DADD(ITEMVAR PROPERTY,OBJECT,VALUE);
simple external PROCEDURE DWRITE(ITEMVAR PROPERTY,OBJECT,VALUE);
simple external ITEM PROCEDURE DCVSR(STRING NAME; LIST REGIONS; REFERENCE INTEGER FLAG);
external PROCEDURE DREM(ITEMVAR PROPERTY,OBJECT,VALUE; INTEGER ERSW,DELSW,INVSW);
simple external ITEM PROCEDURE DSTRIP(STRING ITEMVAR REGION);
simple external PROCEDURE DREG(STRING ITEMVAR REGION);
simple external PROCEDURE DCOPROP(ITEMVAR PROPERTY;STRING ITEMVAR FROMREG,TOREG);
simple external ITEM PROCEDURE DREGFND(INTEGER REG;REFERENCE LIST REGLST;REFERENCE INTEGER ERR);
simple external PROCEDURE DEXTRACT(STRING ITEMVAR REGION; REFERENCE LIST REGLST);
simple external ITEM PROCEDURE DCHEAD(STRING BASENAME;INTEGER ROWZ,COLMZ);
simple external PROCEDURE DDHEAD(STRING ITEMVAR REGION);
external PROCEDURE DINBAS(REFERENCE STRING BASFIL; REFERENCE LIST REGLST);
external PROCEDURE DOUTBAS(REFERENCE STRING BASFIL; REFERENCE LIST REGLST);
simple external PROCEDURE DNEWBAS(REFERENCE STRING BASFIL;REFERENCE LIST REGLST);
simple external PROCEDURE DCOPBAS(REFERENCE STRING BASFIL; REFERENCE STRING ITEMVAR CURREG; INTEGER CREG);
simple external PROCEDURE DELBAS(REFERENCE LIST REGLST);
REQUIRE "⊂⊃<>" DELIMITERS;
REDEFINE DNEW(ARG)=⊂DTEMP(NEW(ARG))⊃;
REDEFINE LHALF(NUM)=⊂(NUM LSH -18)⊃;
REDEFINE RHALF(NUM)=⊂(NUM LAND '777777)⊃;
REDEFINE THRSTUFF(NUM1,NUM2,NUM3)=⊂((NUM1 LSH 24)+(NUM2 LSH 12)+NUM3)⊃;
REDEFINE UN3RD(NUM)=⊂(NUM LAND '7777)⊃;
REDEFINE UN2ND(NUM)=⊂((NUM LSH -12) LAND '7777)⊃;
REDEFINE UN1ST(NUM)=⊂(NUM LSH -24)⊃;
REDEFINE SLHALF(NUM)=⊂(IF NUM LAND '400000000000 THEN LHALF(NUM)+'777777000000 ELSE LHALF(NUM))⊃;
REDEFINE SRHALF(NUM)=⊂(IF NUM LAND '400000 THEN RHALF(NUM)+'777777000000 ELSE RHALF(NUM))⊃;
REDEFINE SUN3RD(NUM)=⊂(IF NUM LAND '4000 THEN UN3RD(NUM)+'77777777 ELSE UN3RD(NUM))⊃;
REDEFINE SUN2ND(NUM)=⊂(IF NUM LAND '40000000 THEN UN2ND(NUM)+'77777777 ELSE UN2ND(NUM))⊃;
REDEFINE SUN1ST(NUM)=⊂(IF NUM LAND '400000000000 THEN UN1ST(NUM)+'77777777 ELSE UN1ST(NUM))⊃;
REQUIRE UNSTACK!DELIMITERS;
external INTEGER DITEMS;
simple external PROCEDURE DINSERT(STRING ITEMVAR REGION;REFERENCE LIST REGLST;INTEGER POS);
simple external ITEM PROCEDURE DCOPREG(STRING ITEMVAR REGION);
simple external ITEM PROCEDURE DTEMP(ITEMVAR ITMVR);
 external INTEGER DMITEMS,DFULL;
simple external ITEM PROCEDURE DCREPRO(STRING PNAM;INTEGER TYPE;REFERENCE INTEGER FLG);
simple external ITEM PROCEDURE DFNDPRO(STRING PNAM;REFERENCE INTEGER TYPE,FLG);
simple external PROCEDURE DRELFIL(STRING FILE);
external RECORD!CLASS DRR(STRING ITEMVAR REG; INTEGER V1,V2);
ENDC